#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 搤惎幃斈梡愴摤傾僯儊丒弨旛曇
#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 惢嶌      搤惎
# 嵟廔峏怴  2006/07/09
#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅

愴摤傾僯儊_擇挌價乕儉儔僀僼儖弨旛:

# 堷悢傪攝楍偵奿擺偟丄偝傜偵暘椶丒奿擺偟捈偡嶌嬈丅
# 偙偙偱惍棟偟偨撪梕傪幚嵺偺昤夋梡儖乕僠儞偵堷悢偲偟偰搉偡丅

Local ARY Pict PictSz PrSE

For i = 1 To ArgNum
  Array ARY Args(i) "="
  Switch ARY[1]
  Case 夋憸僼傽僀儖
    Set Pict[A] ARY[2]
    Set Pict[B] ARY[3]
  Case 夋憸僒僀僘
    Set PictSz[A] ARY[2]
    Set PictSz[B] ARY[3]
  Case 怓 埿椡
    Skip
  Case Else
    If InStr(ARY[1], ".wav") > 0 Then
      Set PrSE ARY[1]
    EndIf
  EndSw
Next

Call 愴摤傾僯儊_嵍塃暿晲婍(俿幃)嫟捠弨旛 _SelectAorB("Weapon\EFFECT_BeamRifle01.bmp",Pict[A]) _SelectAorB(32,PictSz[A]) _
                            _SelectAorB("Weapon\EFFECT_BeamRifle01.bmp",Pict[B],".bmp") _SelectAorB(32,PictSz[B]) PrSE

UnSet ARY Pict PictSz PrSE
Return Keep

#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 愴摤傾僯儊_嵍塃暿晲婍(俿幃)嫟捠弨旛
#
# 晲婍傾僀僐儞偺昞帵儖乕僠儞偼斈梡揑偵巊偊偦偆側偨傔暘棧丅
# (俿幃)偼搤惎幃偺棯(徫) 懠偺愴摤傾僯儊偲旐傜側偄傛偆側柤徧傪慖傫偱偄傑偡丅
#
# 偙偺儖乕僠儞傪屇傃弌偡慜偵丄夋憸偺慖戰偼廔傢偭偰偄傞偺偑慜採丅

愴摤傾僯儊_嵍塃暿晲婍(俿幃)嫟捠弨旛:

Local i T_X T_Y ANG W_P W_S H_C S_E S-I C-S M_V

Set T_X (WX(懳徾儐僯僢僩俬俢) + 16)
Set T_Y (WY(懳徾儐僯僢僩俬俢) + 16)
Set ANG Call(_GetAngle)

Set W_P[1] Args(1)
Set W_S[1] Args(2)
Set W_P[2] Args(3)
Set W_S[2] Args(4)
Set S_E _SelectAorB(Reload.wav,Args(5),".wav")

Set H_C[1] (W_S[1] / 2)
Set H_C[2] (W_S[2] / 2)
Set S-I[A] (Sin(3.141592 * (ANG + 90) / 180) * 16)
Set C-S[A] (Cos(3.141592 * (ANG + 90) / 180) * 16)

# 夋憸昞帵梡丒廋惓抣偺寁嶼側偳

# 伀偙偙偐傜夋憸偺昞帵

If ANG > 0 And ANG < 180 Then

  Wait Start
  PlaySound S_E
  For i = 1 To 3
    ClearPicture
    Switch i
    Case 1
      Set M_V -4
    Case 2
      Set M_V 2
    Case 3
      Set M_V 0
    EndSw
    PaintPicture W_P[1] (T_X - H_C[1] + C-S[A] - M_V) (T_Y - H_C[1] + S-I[A] - M_V) W_S[1] W_S[1] 摟夁 _L-RChecker() 塃夞揮 ANG _ColorTime()
    PaintPicture W_P[2] (T_X - H_C[2] - C-S[A] - M_V) (T_Y - H_C[2] - S-I[A] - M_V) W_S[2] W_S[2] 摟夁 _L-RChecker() 塃夞揮 ANG _ColorTime()
    Refresh
    Wait Until (0.6 * i)
  Next
  Wait Until 7
Else

  Wait Start
  PlaySound S_E
  For i = 1 To 3
    ClearPicture
    Switch i
    Case 1
      Set M_V -4
    Case 2
      Set M_V 2
    Case 3
      Set M_V 0
    EndSw
    PaintPicture W_P[1] (T_X - H_C[1] - C-S[A] - M_V) (T_Y - H_C[1] - S-I[A] - M_V) W_S[1] W_S[1] 摟夁 _L-RChecker() 塃夞揮 ANG _ColorTime()
    PaintPicture W_P[2] (T_X - H_C[2] + C-S[A] - M_V) (T_Y - H_C[2] + S-I[A] - M_V) W_S[2] W_S[2] 摟夁 _L-RChecker() 塃夞揮 ANG _ColorTime()
    Refresh
    Wait Until (0.6 * i)
  Next
  Wait Until 7
EndIf

UnSet i T_X T_Y ANG W_P W_S B_C H_C S-I C-S M_V
Return Keep
# 儘乕僇儖曄悢傪嶍彍偟偰儕僞乕儞

